* This script is Copyright 1995 by Steve Israelson
* Does NOT Segment a line but does add a small polygon, or three
* to that line segment, and turns it into a door
*
* First the doorway
height 1024
Gosub makeDoorPoly

* The door itself
popLine
polyType Platform
Gosub makeDoorPoly

* The connecting doorway
popLine
polyType Normal
Gosub makeDoorPoly

Subroutine makeDoorPoly
	turn -90
	newLine 128
	turn 90
	newLine LineLength
	* Save this line for the Doorway
	pushLine
	lastPoint
	makeLine
	closePoly
EndSub
